home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1006_EditText < prev    next >
Encoding:
Text File  |  1990-03-23  |  692 b   |  37 lines
  1. %case uses%
  2. %case instance%
  3.     %if modeless%
  4.         %itemname%:%    %CDialogEdit;
  5.     %else%
  6.         %itemname%:%    %CEditText;
  7.     %endif%
  8. %case create%
  9.     
  10.     New (%itemname%);
  11.     %itemname%.IViewRes ('StTx', %paneID%, enclosure, supervisor);
  12.     itsMainPane := %itemname%;
  13.     itsGopher := itsMainPane;
  14.     %if not modeless%
  15.         mainPanorama := %itemname%;
  16.     %endif%
  17. %case itemNr%
  18.     %DefineItem%
  19. %case dialog field%
  20.     %fieldname%:%    %Str255;
  21. %case init field%
  22.     %fieldname% := '';
  23. %case auxiliary%
  24. %case filter%
  25. %case set%
  26.     SetDText (%itemname%, %fieldname%);
  27. %case hit%
  28.     %if not disabled%
  29.         %itemname%: begin
  30.                 GetDText (itemNr, %fieldname%);
  31.             end;
  32.     %endif%
  33. %case finish%
  34.     %if disabled%
  35.         GetDText (itemNr, %fieldname%);
  36.     %endif%
  37.